PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PP PPP 


PP PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
aka AAA 
AAA AaB 
AAA AAR 
AAA AAA 
AAA AAA 
AA AKA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
AAA AAA 
AAA AAA 
AAA AAA 


RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR 

RRR 

RRR 

RRR 

RRR 

RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR = RRR 
RRR = RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR 

RRR 

RRR 


—— 


tt tt Ht tt St SH A HH A at HH Ht 
A a tH SH tH Ht 
tt tH SH Ht HH HHH 


LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


**F TLE**1D**PASCVITRT 
PPPPPPPP AAAAAA SSSSSSSS cccccccc «CW VV TTTTTTTTTT RRRRRRAR TTTTTTTTIT 
PPPPPPPP AAAAAA SSSSSSSS ccecccccce =v VV TTTTITTTTT RRRRRRRR TTTTTTTTIT 
PP PP AA AA SS cc VV VV TT RR RR TT 
PP PP AA AA SS cc VV VV TT RR RR TT 
PP PP AA AA SS cc VV VV TT RR RR TT 
PP PP AA AA SS cc VV VV TT RR RR TT 
PPPPPPPP AA AA SSSSSS cc VV VV TT RRRRRRRR TT 
PPPPPPPP AA AA SSSSSS cc VV VV TT RRRRRRRR TT 
PP AAAAAAAAAA SS CC VV VV TT RR RR TT 
PP AAAAAAAAAA s$ CC VV VV TT RR RR TT 
PP AA AA SS CC VV VV TT RR RR TT eeee 
PP Ab AA ss CC VV WV TT RR RR TT 
PP AA AA SSSSSSSS ccccccce VV TT RR RR TT cece 
PP AA AA SSSSSSSS cccccccc VV TT RR RR TT ovee 
LL IIIIII SSSSSSSS 
LL III] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
iL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL 111] SSSSSSSS 
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i- 6-SEP-1984 11:350:2 PASRTL.S SPASCY VTRT.MAR; 1 (1) | 
-TITLE paseeyyet - Convert real to tex | 
IDENT /1-0 ; File:  PASCVTRT. MAR Edit: SBL1004 


~MmARBBAARAAALALAALALASALALAAASAR ESAS ARAR EASES ERE R SEERA ELAR ERASER ARSE ASE AES SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


FTWARE IS FUR 


® 
® 
® 
® 
® 
0 NISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
N. ACCORDANCE WITH F ISUCH LICENSE AND WITH THE 
ION OF THE ABOVE COPIRIGH HT NOTICE. THIS SOFTWARE OR OTHER 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY © 
PERSON, NO TITLE TO AND OWNERSHIP OF THE SOFTWARE 1S- HEREBY = 
TRANSFERRED. * 
he 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. " 
* 

® 

*® 

® 

*® 

*& 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR eam OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 


Ps @eneneneneeeeneeeenennnanane 


-RARRARRAAAARAAASALASAAALARSASLAERLRARARESARARARARARRRA RASA RRARARARARRARAR AAAS BS | 


+ 

FACILITY: Pascal Language Support Library 

ABSTRACT: 
This module contains procedures to convert a floating point value 
oe S pees representation using either exponential or fixed-point 
notation. 


ENVIRONMENT: User Mode, AST Reentrant 


De Se Se Be Se Se Se Be See Se Be Oe Oe 
a 


SOOCCOOSOOCOCOCOCGSOSCOCOCOOCCOCOOCOCOOOCOOOOOOCOOCOOOOOOoOOO 
SOOWONA NE WIN — O OD NAUE WIN $9 ODNAUES WIN @ OOO NOU EW OUOONOU Ewin 


UE RAR LLL LS SWWWWWWIWIinononononononononony — 2 SS 


0 

0 a 

AUTHOR: Steven B. Lionel, CREATION DATE: 12-March-1982 

0 

8 3 Edit History: 

0 + 1-001 - Adapted from FORSCVTRT Edit 1-014. SBL 12-March-1982 

00 3 1-308 - Take advantage of new OTSSSCVT_F_T_R8 routine. SBL 14-Mar-1983 

8 3 1-003 - whoops. . For 2 to fetch address of value for FIXED POINT gt 1-002. 
3 - r-1 

00 3; 1-004 - Move velue i: fetch in FIXED_POINT. SBL 18-May-1983 
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1-004 DECLARATIONS 6-SEP=-1984 11:50:2 PASRTL.SRCIJPASCVTRT.MAR; 1 
8 ¢ ; -SBTTL DECLARATIONS 
0 4 ; INCLUDE FILES: 
; ; NONE 
09 38 ; EXTERNAL DECLARATIONS: 
Bn8 60 * -DSABL GBiL ; Prevent undeclared 
00 61 i symbols from being 
000 6¢ ; automatically global. 
BO06 6 -EXTRN OTSSSCVT_D_T_R8 ; Kernel convert routine 
000 64 -EXTRN OTSSSCVT_F_T_R8 ; For F floating 
0000 65 -EXTRN OTSSSCVT_G_T_R8B ; For G floating 
0000 66 -EXTRN OTSSSCVT_H_T_R8 ; For H floating 
0000 67 
0000 68 ; 
0000 69 ; MACROS: 
0000 70 ; 
44 4 3 NONE 
9009 73 ; EQUATED SYMBOLS: 
000001F C 9009 i : REGMASK = “M<R2, R3, R4, RS, R6, R7, RB> 
0000 77 ; Stack frame offsets from FF 7 
0000 78 ;; Common frame for kernel convert routines , 
FFFFFFF8 0000 79 =- ; Temp for packed representation. 
FFFFFFFS 44 80 FLAGS = PACKED = 4 ; Flags for outer and inner routines 
FFFFFFFQ 0000 81 SIG_DIGITS = FLAGS - 4 3 pignt ticent digits 
FFFFFFEC 0000 Hf STRING_ADDR = SIG_DIGITS - 4 ; Address of temp string 
FFFFFFES 4 8 SIGN = STRING _ADDR =- 4 ; Sign 
FFFFFFE4 0000 84 DEC_EXP = SIGN - 4 ; Decimal exponent 
FFFFFFEQ 0000 85 OFFSET = DEC_EXP - 4 ; Offset 
FFFFFFDC 0000 86 RT_RND = OFFSET = 4 3; Right round point 
FFFFFFDC 0000 87 COMMON_FRAME = RT_RND ; Common frame size 
0000 88 ;; Not-in-common stack frame 
FFFFFFD8 0000 89 EXP_LETTER = COMMON_FRAME - 4 ; Exponent letter to use 
FFFFFFDS BO08 90 S_DT = EXP_LETTER -"4 ; Saved digits in integer 
FFFFFFDO 0000 91 S"DE = S_DT - 4 ; Saved digits in exponent 
FFFFFFCC 0000 38 SDF = S_DE - 4 ; Saved digits in fraction 
FFFFFFC8 0000 9 LEAD_DIGITS = S_DF - 4 ; Number of leading digits | 
FFFFFFC4 0000 94 LEAD"ZERO = LEAD DIGITS - 4 ; Number of zeroes after decimal pt. 
Aaddads Bn8 95 TRAIC_DIGITS = LEAD ZERO - 4 ; Number of trailing digits 
FFFFFFC i 3 FRAME™= TRAIL_DIGITS ; Frame size 
02000000 0000 38 M_RT_ROUND = 1825 ; Flag to kernel routine 
00 199 
09 103 ; PSECT DECLARATIONS: 
00000000 104 ° -PSECT PASSCODE PIC, USR, CON, REL, LCL, SHR, ~ 
09 105 EXE, RD, NOWRT, LONG 
000 109 : OWN STORAGE: 
000 108 ; 
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1-004 ya ety 9 : 3:3 f JPASC 


é PASRTL. SRCIPASCVTRT.MAR: 1 


oO 
25 
“ne 


0 
1 


5 


3¢ 
; Table giving number of exponent digits in exponential format. 


EXP_DIG_TAB: 


04 03 02 02 -BYTE 2,2,3,4 


a9 
; Table giving bit position of exponent. 


POS_TAB: 


00000000 00000004 00000007 00000007 -LONG 7,7,4,0 


s@ 
; Table giving size of exponent in bits. 


OF OB 08 08 -BYTE 8,8,11,15 


2¢ 

; Table sysng exponent biases. The table values are actually three _ 

; lower than the actual bias so that when the unbiased exponent is divided 
; by three (for fixes-point conversion), the result is what the true result 
; would be rounded up to the next higher value. 


BIAS_TAB: 
.LONG § 125, 125,1021, 16381 


SOSDSSDSOOOODODOODSOCDOOODDODODODOODDODOODOOOOOOOOOO Be 
SSSSSSSSSSSSSSSSSSSOSSOSOSOSOSOSOSOSOSSOOOSOOSOOSSO Fe 
399393939 39 39 3 3 3 SS SS SSS SB OOSOOOO OOOO SOOSOOSOSOOSOSSOOSOO 15 
CWWOCOCOCOCOO OW LHR AREER RRR REF ROOCOCOCOOCOCOOSOSSSOOSS ee 
— ot os SS ow 2 = — 2 I 2) 2 2 OS 2 —) 3 os ss 2 Ss SS 


PEERS LSS PWN inononononononunonuno  O 
DONAW EWN O OONAUNEWN CO OONOAUEWN—OODNAOUS WN -OO 
. 


00003FFD 000003FD 0000997D 0000007D 


| 
| 
| 
SIZE_TAB: 
| 
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- Convert real to text 66-SEP-1984 PASRTL.SRCJPASCVTRT.MAR; 1 


we 
YS 
no 
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os 
<< 
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oe -SBTTL PASSCVT_z_T = Convert real to text 
: FUNCTIONAL DESCRIPTION: 


These procedures convert a floating point value to a text 
represertation, and store that representation in a result string. 
The representation is exponential format if the frac_digits 
argument is omitted, and fixed-point notation if it Ts present. 


The minimum width of the earns written is indicated by the 
contents of the argument actual_width. This argument is 
modified by the procedure to contain the actual number of 
characters used, which may be more than the minimum width. 


If the width actually used is less than the minimum width, 
leading blanks are stored. If the maximum_width is less than 
the width needed, a failure status is returned and the width 
that would be sufficient is stored in actual_width. 


The syntax of the text representation conforms to that specified 
by VAX-11 Pascal for textfile output of real data. 


! 
| 
{ 
CALLING SEQUENCE: 
Status.wlc.v = PASSCVT_z_T ( 
dest.wt.r, 
actual_width.ml.r, 
max_width.rl.v 
Cfrac_digits.rl.vJ) 
where ‘'2'' is the datatype (F, D, G or H) 
FORMAL PARAMETERS: 
| 
| 
| 


value 


Be Se Se Ge Ge Ss Ge Ge Se Ge Se Ge Be Ge Ge Ge Ge Fe Ge Ge Ge Ge Se Ge Ge Fe Sse Ge Se Se Se Se 


00000004 
00000008 
0000000C 


Value to be converted 
Destination strin 


nun 
coe 
ow) 


As input, the minimum width of the 
destination. As output, the width actually 
used (or needed in case of error) 

Maximum destination width ; 

Number of fraction digits. If omitted, 
then the result is in exponential notation. 
Otherwise it is in fixed-point notation with 
the given number of fraction digits. 


dest 
actual_width 


0 max_width 
4 frac_digits 


No— 
on 


0000001 
0000001 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
1 = Success 


FRIED IPD IIA at st at st rt tn rt st tk hd dh td td 
DODO OOOOOOOOOO OO C00 69 00 69 69 69 69 09 09 09 SINISE PPAAA AA AAO UII 
ASPEN @ OOD NAUE WIN =O OD NA UE WIN 9 ONO EWN 0 OONOAU EWR OONOAUES WhO 
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1- PASSCVT_z_T = Convert real to text 6-SEP-1984 11:50:2 PASRTL.SRCIJPASCVTRT.MAR; 1 (3). 
| 
0 07 ; 0 - Failure - The value could not be represented in ‘'max_width"’ 
0 88 3 characters. ‘‘actual_width’’ gives the number of characters 
10 ; needed for the entire value. 
Y ; SIDE EFFECTS: 
8 18 3 SS$_ROPRAND if the value is a reserved operand. 
0 15 ;-- 
0 18 
O1FC 0028 1 eENTRY PASSCVT_F_T, REGMASK , 
58 00000900" GF 9E 0 A 18 MOVAB G*OTSS$CVT_F_T_R8, R8 =; Convert routine address 
5 00 »o0 1 1 MOVL #OTP_F, R7 3; Set datatype code 
28 Cid? Bae 31 BRB COMMON | 
O1FC 0036 2 ¢ eENTRY PASSCVT_D_T, REGMASK ‘ 
58 00000000'GF 9E& 0038 22 MOVAB G*OTSS$SCVT_b_T_R8, R8  ; Convert routine address | 
57 O01 00 48 $e MOVL #DTP_D, R7 ; Set datatype code 
1A 11-0042 5 BRB COMMON | 
0044 $58 
O1FC 0044 27 -ENTRY PASSCVT_G_T, REGMASK 
58 O00000000'GF 9E& 0046 228 MOVAB G*OTSS$SCVT_G_T_R8, R8 ; Convert routine address 
57 02 00 0040 229 MOVL #DTP_G, R7 ; Set datatype code 
0c 11 0050 230 BRB COMMON 
0052 231 
O1EC 0052 232 .ENTRY PASSCVT_H_T, REGMASK 
58 O0000000'GF 9E& 0054 3 MOVAB G*OTSSSCVT_H_T_R8, R8 ; Convert routine address 
57 03 00 0058 234 MOVL #DTP_H, R7 3; Set datatype code 
OOSE 235 ; BRB = COMMON | 
OOSE 236 
OOSE 237 
OOSE 238 COMMON: 
SE FFFFFFCO 8F CO QO05E 239 ADDL2 #FRAME, SP : ; Create stack frame 
05 6C 91 Q065 240 CMPB (AP), #<frac_digits/4> ; Frac_digits argument present? 
03 1F 0068 241 BLSSU 10% :; If not, do exponential format 
OO8F 31 es $48 BRW FIXED_POINT ; Do fixed-point format 
| 
F4 AD D4 006D 244 108: CLRL FLAGS (FP) ; Clear flags ae | 
DO AD 8C AF47 «9A 9070 43 MOVZBL EXP_DIG_TABCR7], S_DE(FP) ; Get number of exponent digits 
0076 347 3+ | 
0076 246 ; Determine the minimum width and increase actual_width to that if it is smaller. 
0076 SD ; This is done by the rules of the Pascal standard. 
076 Re | 
51 DOAD 06 C1 0076 26 ADDL3 #6, S_DE(FP), R1 ; ActWidth := ExpDigits + 6 
0c BC 651 ~«=OD1 th 5 CMPL Ri, @actual_width(AP)  ; Compare with caller width 
04 15 OO07F 54 BLEQ 20 ‘ ; Skip if less than or equal 
oc Bc «651 ~=—i0 boas 22 MOVL R1, @actual_width(AP)  ; Store increased width 
0085 25 3+ ; 
0085 58 ; Check for maximum width exceeded. ‘ : 
085 59 ; Compute number of fraction digits which can be represented in this width, 
085 60 ; and get the number of significant digits. Allocate the kernel convert 
3 é 63 3 routine's temporary string space and call it to do the convert. 
0085 263° | 


Bee Se Se Se Oe SH Ge Se Se Se SH Se Se Se SH Se Oe oe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se ee Fe Se Se ae teas 
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5806 PASSCVT_z_T ~ Convert real to text 66-SEP-1984 94:99:38 UPASRTL. SREIPASCVTRT MAR: 1 . ) 
10 Ac OC BC ODI 8 5 64 20$: CMPL @actual_width(AP), max_width(AP) ; Not enough characters? 
D 14 A 65 BGTR ERROR_E ; Error if so 
1 D7 008C 08 DECL R1 3 sougyte fraction digits 
CC AD OC BC 1 (C3 O08E 6 SUBL R1, @actual width(AP), S_DF(FP) ; DecPlaces := ActWidth = ExpDigits | 
FO AD CC AD O11 C1 0094 68 ADOL #1, S_DFCFPY, SIG DIGITSTFP) ; Get number of ecgnt Treen digits 
52 FO AD 13 C1 009A 69 ADDL3 #19, SIG_DIGITS(FP), R2 ; Find temp_string \enath | 
2 + +4) 70 SUBL R2, SP ; Create string on stack 
EC AD 5E D0 OQO0A2 71 MOVL SP, STRING_ADDR(FP) ; Temp string address 
51. 5D 00 QO0A6 i MOVL FP, R1 ; Local frame address 
50 04 AC DO OQOA9 7 MOVL value(AP), RO ; Value address | 
68 16 OOAD 74 JSB (RB) ; Call kernel conversion routine 
ayaAr 75 | 
OAF 76 ;+ 
Baar a4 ; Determine how many digits are in each field of the output string. | 
OOAF 279 ° | 
EC AD EO AD CO OQOAF 580 ADDL2 OFFSET(FP), STRING_ADDR(FP) ; Get first character pos. 
E4 AD 07 00B4 381 DECL DEC_EXPCFPS ; Adjust for leading digit | 
—E8 AD D5 0087 Bs TSTL SIGN(FP) : Is value zero? 
03 12 OOBA 28 BNEQ 30$ ; No 
E4 AD 04 QOBC 284 CLRL DEC_EXP(FP) ; Yes, exponent is zero 
CO AD CC AD 00 OOBF 285 30$ MOVL S_DF(FP), TRAIL DIGITS(FP) 
CB AD 01 DO O00C4 286 MOVL #T, LEAD _DIGITSTFP) ; Number of leading digits 
C4 AD D4 O0C8 287 CLRL LEAD_ZERO(FP) 3; No leading zeroes 
51 OC BC 00 OOCB 288 MOVL @actual width(AP), R1 ; Get minimum field width 
50 DO AD 04 C1 OOCF 289 ADDL3 #4, S_DECFP), RO ; Get width of value 
50 CC AD CO Q0D4 290 ADDL2 S_DF(FP), RO ; Add in fraction digits 
E8 AD D5 00D8 291 TSTL  STGN(FP) ; Is value negative? 
02 18 00DB 444 BGEQ 40$ ; Skip if not 
50 D06 O0DD 29 INCL RO ; Cause one less space to be output 
OODF 294 
OODF 295 ;+ — 
OODF 296 ; Output the digits and exponent. 
OODF 297 ;- 
OODF 298 ee 
OOCF 30 OODF 299 40S: BSBw DIGITS_OUT ; Output digits 
83 45 4 90 Q0E2 300 MOVB = #*A/E/, (R3)+ ; Move exponent letter ; 
54 3 pO O0E6 $03 MOVL R3, RG ; Save pointer to exponent field 
F2 AD O05 €4 AD F9 OOE9 02 CVTILP DEC_EXP(FP), #5, PACKED(FP) ; Convert exponent | 
64 DOAD FBAD O05 08 OOEF 303 CVTPS #5, PACKED(FP), S_DE(FP), (Rd) : | 
50 06 OOF6 304 INCL RO ; RO was zeroed by CVTPS, make it 1 
04 OOF8 305 ET ; Return success 
OOF9 306 
Boe e Sf i+ $F } sane | 
OOF9 8 ; Branch to ERROR_E if the minimum necessary width is wider than the 
Ones #4 3 maximum, The necessary width is already stored in actual_width. 
OOF9 11 
OOF9 \¢ ERROR_E: : f 
50 D4 OOF9 1 CLRL RO ; Indicate failure 
04 OOFB 314 RET 3; return to caller 
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0 -SBTTL FIXED POINT = Fixed point format 
6 FIXED_POINT: 


+ 


Estimate Pasig aig ls s how many significant digits we need. 

Th "§ is done by pgcting the unbiased exponen Bas dividing it 
by 3, which is s ‘ght ly penser than log2(10) his will give 
us a value, perhaps sl opty Large (which is harmless), for the 
number of digits to fhe left of the decimal point. Then add the 
number of fraction digits. 


Note: The bias setne Me BIAS_TAB is Sreuerty three smaller than the 
true exponent bias. This is So that the number of digits we need is 
rounded up to the next higher number. 


MOVL value (AP) Get yotus —— 


50 04 AC 00 
60 FFOB CF47_ FEFF Cres EF EXTZV POS UFABER?] Os rze _TABLR74, (RO), Extract exponent 
51 FFOB CF47 C2 SUBL Bias TABCR7], R1 : Unbias exponent 
7 8 & DIVL #3, Ri : Get power of 10 (approximately) 
03 18 BGEQ 108 ; Skip if positive | 
18 wo MGVL #1, RI ; Get one digit 


FO AD 4AC 51 C1 108: ADDL3 R1, frac _digits(AP), SIG_DIGITS(FP) ; Number of digits needed 


3+ 
: Allocate the kernel convert routine'’s temporary string, specify the 
: rounding position, and do the conversion. 


° | 


SOS DD. DDS DDD DDS TTT BB EEE EWA WIWIIInnonnnononononons 
=—=OODNO NE WIN = OOD NAU EWN O OONOA EWN OVOONAOW LW "OODNOUES WN OOOnNo 7 


AAAAAA.AWA AAA AA AA AAA AAA ANAANANAAIAIA NAIA NIA NINN WINN NANNING 


22. 2 See See ADDL3 #19, SIG_DIGITS(FP), R2 ; foleviote temp atv ing Length 
- oe) oe SUBL2 R2, SP : gregte string on sta 
EC AD 5E DO MOVL SP, STRING_ADDR(FP) 3 fring address 
F4 AD 02000000 8F 00 MOVL #M_RT_ROUND, FLAGS(FP) ; Flag ndicating right round 
DC AD 14 AC DO MOVL frac digits(aP), RT_RND (FP) Rounding position 
51 5D 00 3 MOVL FP, Ri ; Local frame pointer 
68 16 ; JSB (RB) ; Do the conversion | 
3 3+ 
4 ; Get sizes of the various fields in the result string. 
D 
EC AD EO AD (CO 3 ADDL2 OFFSET(FP), STRING_ADDR(FP) ; Get first ,Jigit pos. 
—E8 AD 05 rt: TSTL ahonter ; Is value zero? 
03 12 4 BNEQ 0$ : If zero 
E4 AD D4 47 CLRL DEC_EXP(FP) Then oupenent is zero 
C8 AD £4 AD 00 4A 30$ MOVL PReee APP). LEAD -DIGITS(FP) ; Number of leading digits 
03 i 4F BGEQ 40$ : If greater than 
C8 AD OD 51 CLRL LEAD_DIGITS(FP) Else no leading digits 
(4 AD €4 AD cf 54 408: MNEGL DECLEXPCFP), L LEAD_ 2ERO(FP) ; Number of zeroes after dec pt. 
os - 7 59 BGEQ 50$ : If greater than 
C4 AD D4 58 CLRL LEAD_ZERO(FP) ; Else no leading zeroes 
CO AD 14 AC (C4 AD (C3 3 50$: SUBL3 PROP AFEROLEP) frac -digits(AP), TRAIL_DIGITS(FP) 
10 18 6 BGEQ 60$ : If not positive 
CO AD D4 67 CLRL TRAIL_DIGITS(FP) ; Then no trailing digits 


PASSCVTRT 
1-004 


C4 AD 


50 864 AD 
50 


-—oO w 
om = 
row wm 
aoe = 
o 
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oO 


50 


o-9090—]-990000°0-900C0° = 
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mo 
os 
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~ 
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OMMmMmMmMmno YS VN OC PP ON SS SS TNS POOW ONSEN YP ee 


: 
i] 
Q 
i] 
0 
0 
0 
0 
0 
0 
0 
0 
i] 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


Sati iat ad ad ad ad dada ad ad ea ad ad ad aD ad da ada aad aD adaDaad 
DOPrPrrrrr rrr Pr FP OOOO0O000 OOO W00000000 0909 SI NI NINO oO 
OOODOOSCOCOC OOOO OOOO O OW WOW WOOWOO09 VI NNN 


BPR EH FAWN NANA AAA AAA AANA 


60$: 


70$: 


90$: 


Oo text 
xed point format 


AX/VMS Macro V04- Page 8 
PASRTL.S RCIP ASCV 
, LEAD_ZERO(FP) 

3 ony significant digits? 


3; Yes 
; No, value is + 
D_2ERO(FP). RO 


One for the decimal point 
Is it negative? 

Skip if not 

One for the sign 

Loosing zero required? 


~$Ep=1986 11:80:28 
) 
) 


(FP), LEA 
S(FPS, RO 


Sete Ge Se tHe Ge Se 


ine for the zero 


5+ 
; Compare necessary width with maximum width. 


Get actual width 

Need to eapend field? 
Skip if n 

Expand field 

Store expanded field size 
Maximum width exceeded? 
Error if so 

Format the digits 
Indicate success 

Return to caller 


ape R1 


i Branch to ERROR if the field would expand past max_width. 


ERROR. F: 
RO ; Indicate failure 


; Return to caller 


-00 
VTRT.MAR; 1 (4) 


0 
; Compute characters needed © 


PASSCVTRT - Convert real to text ya SEP-1984 01:23:5 AX/VMS o V04-00 Page 9 | 
1-004 DIGITS. OUT ~3Ep= 198 11:95:28 LeASRTe. sacapascuTer.mar;1 “29° (2). 
0181 108 -SBTTL peakpc ; 
181 409; 3 
18) 219 ; Routine to format the digits in the output string. : 
181 tig ; On entry, RO contains the number of characters actually needed : 
oie rt ; by the result string. R1 contains the minimum field width : 
16) AF ; The string will be constructed as follows: ; 
$B 419 ; n ents (n is — : 
0181 418; LEAD_DIGITS d int ts ; 
aie) 419 ; a det inal poi * 3 
1B1 420 ; LEAD ZERO zer : 
ae) : 1 ; TRAIC DIGITS digits ; 
0181 4 : ; The hd % is inserted where appropriate. If LEAD_DIGITS is $ 
St ; ¢ : zero, a leading zero is inserted. : 
01B1 426 ; Upon exit, R3 points to one byte past where the last character 3 
0181 427 ; was written. 3 
0181 428 ;- : 
0181 429 51G1TS_OUT: : 
56 EC AD DO O1B1 430 MOVL ay ADDR(FP), R6 ; Address of first digit 3 
53 O08 AC DO O1B5 431 MOVL dest(AP), R3 ; Get destination address $ 
51 50 C2 0189 +38 SUBL2 RO, R ; Get number of leading 3 
01BC 343 3 blanks required 3 
06 15 OBC 434 BLEQ 208 ; No blanks needed? F 
83 20 90 OI1BE 435 10$: MOVB #*A/ /, (R3)+ : Insert leading blanks 3 
FA 51 F5 O1C1 436 SOBGTR R1, 10$ : Loop till done ; 
EB AD 05 0104 437 208:  TSTL  SIGN(FP) : Negative? | ; 
03 18 O1C7 438 BGEQ 30$ ; No ; 
83 2D 90 0109 439 MOVB #*A/-/, (R3)+ 3; Minus sign ; 
50 CB AD 00 OQO1CC 440 30$: MOVL LEAD _DIGITS(FP), RO 3; Check for leading zero 3 
05 14 QO1D0 441 BGTR 0 ; Not necessary F 
83 30 90 01D2 ri MOVB #*A/0/, (R3)+ 3; Insert zero PF 
06 11 #O1D5 44 BRB : Skip eaeaie digits : 
83 86 90 01D7 444 40$: MOVB (R6)+, (R34 3; Move a : 
FA 50 F5 OI1DA 445 SOBGTR R ; Loop till "hone 3 
83 2—€ 90 O1DD 446 50$: MOVB eA 3)+ ; Move decimal point 3 
50 C4 AD DO O1E0 447 MOVL EAD “FEROLEP), RO : Insert leading zeroes ; 
06 15 O1E4 448 BLEQ ; Skip if k @ 3 
83 30 90 O166 449 60S: MOVB #*A/0/, (R3)+ ; Move a. : 
FA 50 F5 O1E9 450 SOBGTR RO, ; Loop tilt "done : 
50 CO AD 00 BiEe 451 70$: MOVL TRAIL_DIGITS(FP), RO : Move trailing digits | : 
06 1 1F0 126 BLEQ ; Skip if none : 
83 86 90 A 453 80$: MOVB (R6)+, (R3)+ ; Move trailing digit 3 
FA 50 F5 O1F5 454 SOBGTR RO, 80$ ; Loop till done | 3 
05 O1FB 455 908: RSB ; Return : 
O1F9 «456 3 
O1F9 8457 3 
O1F9 3=458 END ; End of module PASSCVTRT : 
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ACTUAL_WIDTH = 
BIAS_TAB 


¢ ot ie o V04-00 Page 19 
PASRTL.S SPASCVTRT.MAR; 1 (5) 


ow 
row 


OMMON 
COMMON _FRAME 
EXP 


MmmMmmMmmnoCoVIVCVTIITIIOFO 
<x DD Ht tt tn 
m4 
8 
' nhnunn “wun 
D> DDD @D 
Oo 
— 


TT 
EIKED POINT 
FRAC sDIGITS 
LEAD_DIGITS 
LE ERO 


OOM NO™O *OOOOCOCOCOCOO™ "OOO 


NO 
COOL WOLS LOWOMOWN S$ —-@BLOM@WO 


> 
. 
nnnnnnnn 


FFFFFFEO 


reretkeeee 
gerererer 
geaetrree 
greerree 


FFFFFFFS8 


<< CO 


D_T 00000036 RG 
FLT 00000028 RG 
ACT 


ooooo ocooo 
——— = COCO 


PSECT name Allocation PSECT No. Attributes 


- ABS. 00000000 <( 0.) 00 ¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
PASSCODE QOO0O01F9 ¢ 505.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 


PASSCVTRT . - Convert real to text 19" 3Ee- 1388 91593338 AX/VMS Macro V04-00 
VAX=11 Macro Run Statistics SEP=1984 11:50:2 RT 


ro V04 
PASRTL.SRCJPASCVTRT.MAR; 1 


H Performance indicators ; 


Page faults CPU Time Lapsed Time 


Initialization 10 00:00: 8.03 0:00:01.54 
Command processing 8 R838: 0.6 0:00:04.64 
Pass 1 5 00:00:01.19 BBR: 3.87 
Symbol table sort 0 0:00:00.04 0: HS 1 
Pass 92 + : 8 § §:98:8 7? 
Symbol table output 4 :00:00. :00:01.5 
Psect synopsis output 3 00:00: 8-8 00:00:00.0 
Cross-reference output 0 00:00:00. 00:00:00.0 
Assembler run totals 271 00:00:02.82 00:00:15.67 


The working set Limit was 750 pages. 

7465 bytes (15 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 45 non-local and 21 local symbols. 
458 source Lines were read in Pass 1, produc ing 20 object records in Pass 2 

0 pages of virtual memory were used to define 0 macros. 
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aaneuenEensurasneuaeneaqerat 
Macro Library name Macros defined 
“S255$DUA28:(SYSLIBISTARLET.MLB:2 0 (itt "te 

0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:PASCVTRT/OBJ=OBJ$:PASCVTRT MSRC$:PASCVTRT/UPDATE=(ENHS$:PASCVIRT) 
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